home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / BUGSHAKE.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  871b  |  29 lines
  1. ' BUGSHAKE.BAS
  2. ' This program contains a logic error.  Can you find it?
  3.  
  4. CONST BIGSHAKE% = 174  ' constant equaling gallons in largest shake
  5.  
  6. CLS
  7.  
  8. PRINT "How many gallons were in the largest milkshake ever made?"
  9. PRINT
  10.  
  11. DO WHILE (guess% <> BIGSHAKE%)        ' compare guess to largest shake
  12.     INPUT ; "Guess:  ", guess         ' get guess from user
  13.   
  14.     COLOR 2                           ' set color to green for clue
  15.     IF (guess% < BIGSHAKE%) THEN      ' determine if guess is high or low
  16.         PRINT , "too low"             '   and print appropriate clue
  17.     ELSEIF (guess% > BIGSHAKE%) THEN
  18.         PRINT , "too high"
  19.     ELSE
  20.         PRINT
  21.     END IF
  22.     COLOR 7                           ' set color back to default white
  23. LOOP
  24.  
  25. PRINT
  26. PRINT "Correct!  A"; BIGSHAKE%; "gallon strawberry shake was mixed";
  27. PRINT " in Ohio in 1988."
  28.  
  29.